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RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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If: sep-1 99:86:18  FaUnore snedriguee oc 4 teat | 
MODULE figure ( DENT "v04=000" | 


1S$32 CL. ADDRESSING _MODE (EXTERNAL = =_ LONG_RELATIVE 
NONEXTERNAL = LONG-RELATIVES] 


)ez 
BEGIN 


PARSSESSISSSE SISSIES ESET TT TTT CPPCC TPP Tc Pee ccc etic ceric ici ii iii titi iii | 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


Hl roe SOFTWARE IS FURNISHED -— A LICENSE AND 2 BE USED AND gt bt 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF TWARE OR ANY OTHER 
® Sit} te THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SCFTWARE IS HEREBY 


. 
* 
* 
* 
+ 
‘ 
‘ 
. 
* 
* 

TRANSFERRED. * 
+ 
* 
* 
* 
. 
. 
* 
* 
. 
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!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: CnRPORATT Ox NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Lee EAA AAA ARERR ERE AAA EAE 
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ABSTRACT: Processes .FIGURE and .FIGURE DEFERRED commands. 
ENVIRONMENT: Transportable 
AUTHOR: R.W.Friday CREATION DATE: May, 1978 
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ae 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
| 
| 
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Revision History 1b-se ~300n 138% 99: 86; 8 RUNOFF SRESFIGUME oL 144 — (8 
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PUPPIES 


ZSBTTL ‘Revision History' 
' MODIFIED BY: 


010 REROOO10 Ron Randall 30-May-1983 
eaanore mex Taye number of Lines user en leave for a figure 
or deferred figure from roa ical page ength to logical page 
sore) sins any Neader Lines and bottom-of-page lines as 
na 


spec YOUT command. 
009 agg 4's 3 Ron Randall 17-Mar-1983 
Added code to handle figures in topnotes. 
008 REROOOO08 Ron Randall 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


es 


< 
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Module Level Declarations 


| 
| 

; @& 0 1 ZSBTTL ‘Module Level Declarations’ 

; Bh 0 1! | 

3 6 060 1 ! TABLE OF CONTENTS: | 

3 6 061 1! 

; 66 066 1 FORWARD ROUTINE 

30 (G5 065 1 gfig : NOVALUE; 

; 66 064 1! 

; 67 065 1 ! INCLUDE FILES: 

; 68 be$ BB 

; +4 06 1 LIBRARY ‘NXPORT:XPORT'; ! XPORT Library 

5 4 43 } REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions 

: if U 5 00 1 XIF DSRPLUS XTHEN 

: uf U 8 4 1 bgpeanv "REQ:DPLLIB'; ! DSRPLUS BLISS Library 

: 75 0 G8 1 LIBRARY ‘REQ:DSRLIB'; ! DSR BLISS Library 

; 76 pg0e 1 FI 

3 77 0205 1 

: 78 T33 1! 

3 79 0207 1 ! EXTERNAL REFERENCES: 

3 80 0208 1! 

; 81 0208 1 EXTERNAL 

3 eB 0210 1 fnct : fnct_definition, 

 & 0211 1 ca : gca_definition, 

: 84 0 \¢ 1 ct : hct_definition, 

; 85 021 1 ira : FIXED_STRING 

; 686 0214 1 mra : REF FIXED STRING, 

: 87 0215 1 numprm : numprm_define, 

; B¢16 1 phan : phan_definition, 

; 34 ost? ' tsf : tsf_definition; 

: 91 U $515 1 XIF DSRPLUS XTHEN 

; 4 U bso 1 EXTERNAL 

ey = U 0221 1 topnot : tn definition; 

: 3s $593 1 

: 9% 0224 1 EXTERNAL LITERAL 

3 44 8S 5 : rintes : UNSIGNED (8); 

: 99 0 6 1 EXTERNAL LITERAL 

i ee ge fm 

; 198 0230 1 EXTERNAL ROUTINE 

3 + 8 .: erma, 

: 104 ¢ 1 gcpage, 

: 105 0 1 guskip, | 

: 106 bse 1 outcrg; 

s 107 0235 1 | 
| 


<" 


Fz 
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GLOBAL ROUTINE figure (handler_code) : NOVALUE = 


— 


lee 
FUNCTIONAL DESCRIPTION: 

Processes .FIGURE and .FIGURE DEFERRED commands. 
FORMAL PARAMETERS: 


FWA 


DWONOUVLS WIN $9 ODNAUE WN O ODNOAUE WIN SH OOONOULS WO 


handler_code = Indicates which command should be processed. 
IMPLICIT INPUTS: 


numprm = Contains a number, as processed by GETNUM. 
IMPLICIT OUTPUTS: None 


' ROUTINE VALUE: 
COMPLETION CODES: None 


BEGIN 


! 
Illegal number. Ignore the command. 


' 
Default setting is 1. 
iF .mum_length EQL 0 
THEN 
num_value = 1; 
' 
} Maximum space that can be left for a figure is ‘'real’’ space on a page. 


BREE EEE EE FAWN NII PPP NIP NINN 2 2 SS ne 
DOONAN EWN (OOO NA UE WN 0 OONOU EWN OO ODNOULS WO 
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1 
1 
: 
IF NOT .num_result 
THEN 
RETURN; 
: 


ee a a ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


50 : 

51 IF (.mum_value LEQ 0) OR 

26 (.num_velue GIR (.phan_llines - .hct Layoute 

5 0 - (IF Thet subtitle THEN 1 ELSE } 
54 1 - (IF .hct headers THEN 3 ELSE 0))) 
55 ¢ THEN 

28 BEGIN 

5 4 erma (rnfinm, false); 

58 5 RETURN; 

59 § 3 

60 

61 8 SELECTONE .handler_code OF 

66 34 T 

6 0 h_figure] : gfig (true, .num_value); 

e8 39 Be! guredeferrs : gfig (false, .num_value); 


| 
| 
| 
;_SIDE EFFECTS: None 
| 
| 
| 
| 
} 
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H § 
FIGUR 16-Sep-1984 00:27:3 AX-11 Bliss-32 V4.0-74 
det 0 Module Level Declarations 1e-Sep- 382 Se AMNOFR SAEIFTeUNE oc C. _— “as 
aa 93 
; 168 8332 ¢ END; ' End of FIGURE 
TITLE F 1GURE 
[IDENT \V04-000\ 
.EXTRN FNCT, GCA, HCT, IRA 
SEXTRN MRA, NUMPRM, PHAN 
SEXTRN TSF. RINTES, RNFINM 
[EXTRN ERMA, GCPAGE, GUSKIP 
“EXTRN OUTCRG 
.PSECT $CODE$,NOWRT,2 
001¢ 00000 .ENTRY FIGURE, Save R2,R3,R4 : 0236 
54 000000006 EF 9€ 90008 MOVAB HCT+32, R4 : 
53 000000006 EF 3 00 MOVAB NUMPRM+4, R3 : 
6D FC a3 E9 00019 BLBC §-NUMPRM, {0$ + 0264 
08 A3 D5 00014 TSTL | NUMPRM4+12 : 0271 
03 if 0017 BNEQ ~=‘'1$ : 
63 01 D0 00019 MOVL #1, NUMPRM+4 + 0273 
52 $3 00 9901¢ 1$: MOVE NUAPRM*4 R2 : 0278 
51 000000006 FF 64 C3 00021 SUBL3 HCT+32, @PHAN+4, R1 : 0279 
05 F8 B4 E9 00029 BLBC @HCT+24, 2$ : 0280 
50 01 DO 0002D MOVL #1, RO : 
08 11 00030 BRB 3$ : 
D4 00032 3s CLRL. RO : 
51 50 C2 00034 3$ SUBL2 RO : 
05 E8 B64 €E9 00037 BLBC @HCT+8, 4$ : 0281 
50 03 DO 900 B MOVL #3, ; 
08 11 0003€ BRB 5$ ; 
50 D4 00040 4$: CLRL. —- RO : 
51 50 C2 00042 5$: SUBL2 RO, R1 : 
51 52 D1 0004 CMPL = 2. RI : 0279 
10 15 00048 BLEG 7$ : 
7E D4 OO04A 6$ CLRL = = (SP) > 0284 
000000006 8F DD 0004 PUSHL #RNFINM : 
000000006 EF 02 FB 0005 CALLS #2, ERMA ; 
04 0005 ET : 0285 
50 04 AC DdO 0005A 7$ MOVL § HANDLER_CODE, RO : 0288 
00000041 &F 50 D1 0005 CMPL RO, #65 : 0290 
06 12 6 6 BNEQ 8$ ; 
DD PUSHL NUMPRM+4 ; 
1 0D 0 69 PUSHL #1 : 
D 11 0006B BRB 9$ ; 
00000042 =F 0 D1 906 BE CMPL RO #66 > 0291 
08 12 00074 BNEG =: 108 ; 
: DD 16 PUSHL NUMPRM+4 : 
E D4 0007 CLRL. =(S : 
000C0000V EF 02 FB OOO7A 9S: CALLS #2, GFIG : 
04 00081 10$: RET > 0294 


; Routine Size: 130 bytes, Routine Base: $CODE$ + 0000 
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Module Level Declarations ereeen The PSigri es | AMAA Ok isge te, ve-Qr7s Page of 
GLOBAL ROUTINE gfig (immediately, count) : NOVALUE = 


F NI 


| 
144 | 
! FUNCTIONAL DESCRIPTION: 


Generates code corresponding to RUNOFF's .FIGURE and 
-FIGURE DEFERRED commands. 


FORMAL PARAMETERS: 
immediately = Indicates whether the block of Lines should be done 


mmediately, or whether it can be put off until the 
top of the next page. TRUE means immediately. 


DOOCOGDOCOCOCOOOONO 


MRO OONO NEW) SO OODNOAUE WIN 0 OCONOA UE WN O ODNAU EWN (OOS NOAU EW "OO OO~I0 


count - Number of Lines to be generated. 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: | 
COMPLETION CODES: None 


IWAN ANIW AANA AAAIAIWIPororore 
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SIDE EFFECTS: None 


BEGIN 
LOCAL 


DWNAVEWN OC ODNOUEWROU0OAIOUSWN HO 


tsf_phregs : REF VECTOR Ctsf_nregs]; 
tsf_phregs = tsf__phregs; 


SCoooooowuwo 
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; 

: ' If eee a footnote, all figures are unconditional and cannot 

' start a new line. Code generation is particular simple, being 

§ ' start i Cod i i icularil imple, bei 


So 
uw 


ust an unconditional generation of the number of Lines. 


Ss 


-fnct_collecting 


ooo 
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BEGIN 
guskip (.count); 
Aa 3 
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; 
2 
2 
r4 
: 


DSRPLUS XTHEN 

If collecting a topnote, all figures are unconditional. 
iF .tn_collecting 

THEN 


cccccccccce 
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EGIN 
guste (.count); 
ETURN; 
END; 


RIF 
RFI 
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IF .tsf_next_reg GEQ tsf_nregs ! Don't allocate too many ‘registers’. | 
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F 1GUR $ep-1984 00:27:3 AX-11 Bliss-32 V4.0-74 F JNI 
vou-0 0 Module Level Declarations ats 7 99:6a:48 RUNOFF .SRC FTGURE BLT: ha (sp vou: 
; 7 3 ; 
; 8 2 outcrg (); ; 
: 0 tsf_phregs C.tsf_next_reg] = .count; ; 
; 1 § 1s. Scher tare, rintes); , ! If (test page..) : 
; § 8 fs_wehar (mra, %C't'); ; 
H S.wchar (mra, .tsf_next_reg); : 
; 4 60 fs_wchar (mra, rintes); ! then skip now : 
; 5 61 fs_wehar (mra, %C'u'); : 
3 : 0 6¢ fs_wchar (mra, .tsf_next_reg); : 
3 036 fs_wchar (mra, rintes); ! end then | 
3 3 9 fs_wehar (mra, %C'.'); 
3 5 fs-wehar (mra, %C° '); 
; re 8 r¢ tsf_int_vl = .tsf_int_vl + 9; 
; X 68 IF immediately 
s 24 4 THEN 
: Ste O37) senaae ti 1G de 
; cpage (); ! Generate code for a new page. 
; $$ O328 Ver ucher (mra, rintes); ! generate code for skips = 
: 247 037 fs_wehar (mra, %C‘u'); ! unconditional skipping! 
; 248 0374 fs_weohar (mra, .tsf_next_reg); 
; 249 0375 ENB | 
g go) 0879 BEGIN ! The block of Lines can wait. 
: $26 0378 fs_wchar (mra, rintes); 
; 2 0379 fs_wchar (mra, %C'd'); ! defer space | 
; 254 0380 fs_wohar (mra, .tsf_next_reg); 
: 955 0381 | 
; 256 Bang 
3 gor 038 fs_wchar (mra, rintes); ! end else 
; 258 0384 fs_wchar (mra, %C‘.'); 
3 €o9 0385 fs_wehar (mra, %C' '); 
; 260 0386 tsf_int_v = .tsf_int.vl +6 
3 $61 0387 tsf_next_reg = .tsf_next_reg + 1; 
; 262 0388 1 END; ! End of GFIG 


OOFC 00000 .ENTRY GFIG, Save R2,R3,R4,R5.R6,R7 > 0296 
57 : 006 af 9A 000. HOVZBL #RINTES, R7 ; 
28 60009 $e cr oF 09 D MOVAR TSF. R : 
52 65 00 O8C 8F C1 00014 ADDL3 #146, TSF, TSF_PHREGS : 0 $ 
oeiie a a Be 
000000006 _ EF 01 FB 6 6 CALLS ie GUSKIP : 
50 }} 5 4 1$ MOVE TSF, RO : $383 
05 0088 0 D1 j CPL 1$6tR09, #5 : 
000000006 y Q F CALLS #0, OUTCRG : 0354 
at goss ta 3 ae” Vaan CYS eae — 
6241 8 AC D 23 MOVL COUNT, (TSF_PHREGS)CR1) : 


oat Oh ieee Sh ae 
RUNOFF .SRCJF IGURE.BLI; 
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FIGUR 16-Sep-1984 00:27: AX-11 Bliss-32 V4.0-74 P F INF 
be 50 Module Level Declarations 1 ~$007 138% PEE: RUNOFF SRC FTeune “oui. — (38 vue 
00 81 57 9 OF MOVB = R7,,_ @0(R1) ; ; 
61 D INCL (rf) : 
oc Ad p 1 INCL  12(RO0) : 
00 «BI 2 1 MOVB #46 a0(R1) + 0384 
D6 001 INCL (R1§ : 
oc A p 1 INCL VeRO) : 
00 «a1 : 1 MOVB o#t : a0(R1) + 0385 
D6 0011 INCL (RIS : 
0c AQ D6 0011 INCL 12(RO) : 
18 Ae Be 8D Sorta Toute wee oe aROD : 03 
0088 to b6 145 INCL 13680) : 0367 
4 1 RET $ 
; Routine Size: 291 bytes, Routine Base: S$CODE$ + 0082 
: 263 0389 1 
3 64 0390 1 END ! End of module 
; 0391 
Name Bytes Attributes 
: SCODES 421 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
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a ee ee Symbols -------- Pages Processing 

; File Total Loaded Percent Mapped Time 

: “B52 REDUACE: ESV SL 1BIKPORT eb Sei 590 9 0 252 60:00. 

> 78$255$DUA28: CRUNOFF .SRCJDSRLIB.L32;1 1248 3 2 86 0:00.3 

3 COMMAND QUALIFIERS 

: BLISS/CHECK=(FICiD, INITIAL ,OPTIMIZE)/LIS=LIS$:F IGURE/OBJ=OBJ$:FIGURE MSRC$:F IGURE/UPDATE=(ENHS$:F IGURE) 
3 Size: 421 ode + 0 data bytes 

3; Run Time: 710. 

3; Elapsed Time: ae 

3; Lines/CPU Min: 277 


| 


F }GURE hes2p-1984 00:27:33 VAX-11 Bliss-32 V4.0-742 Page 11 
Module Level Declarations 


; Lexemes/CPU-Min: 24495 
; penoty Used: 141 pages 
; Compilation Complete 
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